home *** CD-ROM | disk | FTP | other *** search
/ Ultimate Civil War Collection: Civil War Classics / Ultimate Civil War Collection (Civil War Classics)(H-Bar Enterprises)(1997).bin / hb_nstal / hbar.inf < prev    next >
Text File  |  1997-02-17  |  5KB  |  209 lines
  1. DefineVariables
  2. Number [ReturnVal1]
  3. Number [ReturnVal2]
  4. number [ReturnVal3]
  5. Number [ErrCount]
  6. Directory [windir]
  7. Directory [winsdir]
  8. Logical [EnKeyb]
  9. Logical [NetAvail]
  10. Logical [MathPres]
  11. Logical [CDAvail]
  12. Text [DispType]
  13. Number [XMSAvail]
  14. Number [ExtmemPagesActive]
  15. Number [ExtmemPagesAvail]
  16. Number [ExtMemAvail]
  17. Number [ExtMemPres]
  18. Number [ExpMempgavail]
  19. Number [ExpMempgactive]
  20.  
  21. Text [osver]
  22. Text [DosVer]
  23. Text [EmsVer]
  24.  
  25. Text [ProdExecutable]
  26. Text [GroupTitle]
  27. Text [GroupFile]
  28. Text [ExistingGroupName]
  29. Text [InstDir]
  30.  
  31. Text [FactsIconF]
  32.  
  33. Text [IconTitle]
  34. Text [IconFile]
  35.  
  36. EndDefineVariables
  37.  
  38. [EnKeyb] := NoCharacter
  39. [NetAvail] := NoCharacter
  40. [MathPres] := NoCharacter
  41. [CDAvail] := NoCharacter
  42.  
  43. Do SetupDisplay
  44. Do CheckHardware
  45.  
  46. if [errcount] > 1
  47. Dialog UseHeader "Encountered Some Problems"
  48. Our installation has encounterd the following problems,
  49. you can continue to install or exit installation.
  50. [Array1][1]
  51. [Array1][2]
  52. [Array1][3]
  53. [Array1][4]
  54. [Array1][5]
  55. [Array1][6]
  56. [Array1][7]
  57. EndDialog
  58. endif
  59.  
  60. :start
  61.  
  62. DialogBox 150 80 UseHeader "Installing H-Bar Install 1.0" Returns [ReturnVal1] BlackOnLightGray
  63. Font "Helv" 8
  64. GroupBox @xy(5,4) 135 70 "Select Option"
  65. RadioButtonGroup Uses [ReturnVal2]
  66. RadioButton @xy(10,17) 120 12 "&Install H-Bar"
  67. RadioButton @xy(10,30) 120 12 "&Hardware Summary"
  68. RadioButton @xy(10,43) 120 12 "&Exit Installation"
  69. PushButton @xy(60,55) 38 14 "OK" OK
  70. EndDialogBox
  71.  
  72.  
  73. if [ReturnVal2] = 1
  74. Do Install
  75. goto start
  76. endif
  77.  
  78. if [ReturnVal2] = 2
  79. Do HardwareSum
  80. Goto start
  81. endif
  82.  
  83. if [ReturnVal2] = 3
  84. SoLong
  85. Endif
  86.  
  87. if [RetrunVal2] = 0
  88. Dialog
  89. Click on one of the option buttons.
  90. EndDialog
  91. Goto start
  92. Enddialog
  93. endif
  94.  
  95. Procedure SetupDisplay
  96. SetDefaultBitMap Off
  97. SetBackGroundColor 0 0 64 191 64 0 TopToBottom
  98.  
  99. SetPopupAttrTo YellowOnBlue
  100. ShowWindow maximized
  101.  
  102. EndProcedure
  103.  
  104. Procedure Install
  105. [installationdirectory] := h_bar
  106. DetermineInstallationDrive
  107. DetermineInstallationDirectory installationdrive:\[installationdirectory]
  108. QueAllFiles
  109. GetQuedFiles
  110. ChangeDirectoryto [InstallationDirectory]
  111. [ProdExecutable] := [InstallationDirectory]\vip.exe
  112. [GroupTitle]  := H-bar
  113. [InstDir]        := [InstallationDirectory]
  114. [IconFile]     := open.ico
  115.  
  116. [IconTitle]      := H-Bar Open
  117.  
  118. :top
  119. DialogBox 150 80 UseHeader "Install Icon" Returns [Number1]
  120. Font "Helv" 8
  121. RadioButtonGroup Uses [Number2]
  122. RadioButton @xy(6,6) 150 12 "We can install Icon in an &existing group"
  123. RadioButton @xy(6,20) 150 12 "Or we can install Icon in a &new group"
  124. RadioButton @xy(6,34) 150 12 "Or we can &skip this part"
  125. PushButton @xy(60,60) 38 14 "OK" OK
  126. EndDialogBox
  127.  
  128. if [Number2] = 1
  129. [Array2] := GetProgramManagerGroupNames
  130.  
  131. DialogBox 177 70 UseHeader "Choose group to install Icon in" GreenOnBlack Returns [Number7]
  132. ListBox @xy(15,7) 120 30 Uses [String1] LoadWith [Array2]  Border
  133. PushButton @xy(60,55) 38 14 "OK" OK
  134. EndDialogBox
  135. [ExistingGroupName] := [String1]
  136. if [ExistingGroupName] = BlankString
  137. popup no group selected, not installing icon
  138. else
  139. ProgramManagerDDE
  140. CreateGroup([ExistingGroupName])
  141. AddItem([ProdExecutable],[IconTitle],[InstallationDirectory]\[IconFile])
  142.  
  143. EndProgramManagerDDE
  144. endif
  145. endif
  146.  
  147. if [number2] = 2
  148. ProgramManagerDDE
  149. CreateGroup(H-bar,[WindowsDirectory]\hbar.grp)
  150. AddItem([ProdExecutable],[IconTitle],[InstallationDirectory]\[IconFile])
  151. EndProgramManagerDDE
  152. endif
  153.  
  154. if [Number2] = 3
  155. popup not installing icon
  156. endif
  157. EndProcedure
  158.  
  159.  
  160. Procedure CheckHardware
  161. [Number3] := 1
  162.  
  163.  
  164. [windir] := [WindowsDirectory]
  165. [winsdir] := [WindowsSystemDirectory]
  166.  
  167. [ExtmemPagesActive] := ExtendedMemoryPagesActive
  168. [ExtmemPagesAvail] := ExtendedMemoryPagesAvailable
  169. [ExtMemAvail] := ExtendedMemoryAvailable
  170. [ExtMemPres] := ExtendedMemoryPresent
  171. [ExpMempgAvail] := ExpandedMemoryPagesAvailable
  172. [ExpMempgActive] := ExpandedMemoryPagesActive
  173. [osver] := OSVersion
  174. [DosVer] := DOSVersion
  175. [EmsVer] := EMSVersion
  176.  
  177.  
  178. if [ExtmemPres] < 1000
  179. [Array1][[number3]] := You Must have at least 1000k of memory.
  180. IncrementNumber [number3]
  181. endif
  182.  
  183.  
  184. if [DOSVer] < 3.0
  185. [Array1][[number3]] := You must have a DOS version of at least 3.0 or more
  186. IncrementNumber [number3]
  187. endif
  188.  
  189. [Errcount] := [Number3]
  190.  
  191. EndProcedure
  192.  
  193. Procedure HardwareSum
  194. Dialog
  195. DOS Version  : [DosVer]
  196. Extended Memory Available : [ExtMemAvail]
  197. Extended Memory Present : [ExtMemPres]
  198. Extended Memory Pages Active : [ExtMemPagesActive]
  199. Extended Memory Pages Available : [ExtMemPagesAvail]
  200. Expanded Memory Pages Available : [ExpmempgAvail]
  201. Expanded Memory Pages Active    : [ExpMempgactive]
  202.  
  203. Windows Directory  : [windir]
  204. Windows System Directory : [winsdir]
  205. EndDialog
  206.  
  207. EndProcedure
  208.  
  209.